home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / clause.tst < prev    next >
Text File  |  1999-09-16  |  519b  |  35 lines
  1. deff('[y]=t(x)',[
  2. 'y=0'
  3. 'if x>0 then'
  4. '  if x=1 then '
  5. '    return'
  6. '  else '
  7. '    if x=2 then '
  8. '       y=10'
  9. '    else '
  10. '       for u=1:x, '
  11. '         y=y+u,'
  12. '       end,'
  13. '       return'
  14. '    end'
  15. '  end'
  16. 'else '
  17. '  for u=1:-x, '
  18. '    if u=4 then '
  19. '      return,'
  20. '    else '
  21. '      y=u,'
  22. '    end'
  23. '  end'
  24. 'end'])
  25. //
  26. if t(0)<>0 then pause,end
  27. if t(1)<>0 then pause,end
  28. if t(-1)<>1 then pause,end
  29. //
  30. t1=t;
  31. comp(t1)
  32. if t(0)-t1(0)<>0 then pause,end
  33. if t(1)-t1(1)<>0 then pause,end
  34. if t(-1)-t1(-1)<>0 then pause,end
  35.